home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 062 - Misc.dsk / HCS BOOT.bas < prev    next >
BASIC Source File  |  2019-02-17  |  4KB  |  56 lines
  1. 0  HOME :D$ =  CHR$(4): PRINT D$"BLOAD PLAYER,A$300": PRINT D$"BLOAD MUZAK,A$6000": PRINT D$"BLOADHCS TITLE,A$2000": CALL  -3109: POKE 30,0: POKE 31,96: CALL 768: PRINT  CHR$(21)
  2. 5  POKE  -16368,0
  3. 10 Z$ = "        Hacking Construction Set       ":Y$ = "               by Cyborg               ": TEXT : HOME : PRINT Z$: PRINT Y$: VTAB 4: INVERSE : PRINT  SPC( 40): VTAB 12: PRINT  SPC( 40): FOR A = 5 TO 11: VTAB A: PRINT " ";: HTAB 40: PRINT " ": NEXT : VTAB 18: PRINT  SPC( 40): NORMAL 
  4. 11 N$(1) = "Run HCS":N$(2) = "Read Docs":N$(3) = "View Text":N$(4) = "Dos Cmd":N$(5) = "Exit":N = 5: FOR A = 1 TO N: VTAB 5 +A: HTAB 16: PRINT N$(A): NEXT 
  5. 12 P = 1: VTAB 20: PRINT " The author of this program takes no ": PRINT " responsibility for any damages,": PRINT " accidental or otherwise, incurred by ": PRINT " the use or abuse of this program."
  6. 13  INVERSE : VTAB 12: HTAB 15: PRINT "DOS WINDOW": NORMAL 
  7. 50  VTAB 5 +P: HTAB 13: PRINT "=>";: HTAB 26: PRINT "<="
  8. 55 K =  PEEK( -16384): IF K <128  THEN  GOSUB 215: GOTO 55
  9. 60 K = K -128: POKE  -16368,0: GOSUB 215: IF K = 21  OR K = 8  OR K = 10  OR K = 11  THEN  VTAB 5 +P: HTAB 13: PRINT "  ";: HTAB 26: PRINT "  ": GOTO 75
  10. 65  IF K = 13  THEN 90
  11. 70  GOTO 55
  12. 75  IF K = 8  OR K = 11  THEN P = P -1: IF P <1  THEN P = N: GOTO 50
  13. 80  IF K = 21  OR K = 10  THEN P = P +1: IF P >N  THEN P = 1: GOTO 50
  14. 85  GOTO 50
  15. 90  IF P = 1  THEN  TEXT : HOME : PRINT D$"RUN HCS"
  16. 95  IF P = 2  THEN F$ = "HCS DOCS": GOSUB 115
  17. 100  IF P = 3  THEN  HOME : PRINT 
  18. 105  IF P = 3  THEN  PRINT "Filename or [RETURN] to catalog": INPUT ":";F$: IF F$ = ""  THEN  HOME : PRINT D$"CATALOG": PRINT : GOTO 105
  19. 106  IF P = 4  THEN  GOTO 500
  20. 110  IF P = 5  THEN  TEXT : HOME : NEW 
  21. 115  IF  PEEK(768) < >32  THEN  GOSUB 240
  22. 120  ONERR  GOTO 130
  23. 125  PRINT D$"VERIFY"F$: GOTO 135
  24. 130  PRINT : PRINT : PRINT "<CTRL-G>Disk error!": FOR D = 1 TO 1000: NEXT D: POKE 216,0: GOTO 10
  25. 135  PRINT D$"PR#3": ONERR  GOTO 210
  26. 140 C = 0: PRINT "Press P for printout or any key to continue ";: GET X$: PRINT : HOME : IF X$ = "P"  THEN C = 1
  27. 145 X$ = "   Text file viewer         Hacking Construction Set        File:" +F$: FOR A =  LEN(X$) TO 79:X$ = X$ +" ": NEXT A: INVERSE : PRINT X$: VTAB 2: PRINT "    Use <-  -> to control speed  [ESC] aborts reading  [SPACE] pauses file      ": NORMAL : POKE 34,2
  28. 146  IF C = 1  THEN  PRINT D$"PR#1": PRINT : PRINT "Hacking Construction Set     File:"F$: PRINT 
  29. 155  NORMAL : POKE 34,2: HOME :B = 150: PRINT D$"OPEN"F$: PRINT D$"READ"F$
  30. 160  CALL 768,A$:A$ =  MID$ (A$,1): IF C = 1  THEN 205
  31. 170 K =  PEEK( -16384):K = K -128: POKE  -16368,0
  32. 180  IF K = 32  THEN K =  PEEK( -16384): IF K <128  THEN 180
  33. 185  POKE  -16368,0: IF K = 27  THEN  GOTO 210
  34. 190  IF K = 8  THEN B = B -10: IF B <0  THEN B = 0
  35. 195  IF K = 21  THEN B = B +10: IF B >250  THEN B = 250
  36. 200  SPEED= B
  37. 205  PRINT A$: GOTO 160
  38. 210  IF PR = 1  THEN  PRINT : PRINT : PRINT : PRINT D$"CLOSE": PRINT D$"PR#0": POKE 216,0: GOTO 10
  39. 211  PRINT : PRINT : SPEED= 255: PRINT D$"CLOSE": POKE  -16368,0: PRINT : PRINT "Press [RETURN] to continue ";: GET X$: PRINT : PRINT D$"PR#0": POKE 216,0: GOTO 10
  40. 215 Z$ =  MID$ (Z$,2, LEN(Z$)) + LEFT$(Z$,1):Y$ =  MID$ (Y$,2, LEN(Y$)) + LEFT$(Y$,1): VTAB 1: PRINT Z$: PRINT Y$: RETURN 
  41. 240  DATA 32,190,222,32,227,223,169,128,133,51,32,106,253,160,0,138,145,131,169,0,200,145,131,169,2,200,145,131,76,57,213: FOR I = 1 TO 31: READ X: POKE 767 +I,X: NEXT : RETURN 
  42. 500  VTAB 14
  43. 501  POKE 34,12: POKE 35,17: HOME 
  44. 502  POKE 44452,5: POKE 44605,4
  45. 510  PRINT "Dos:";
  46. 511  GET X$
  47. 515  IF X$ =  CHR$(27)  THEN  POKE 44452,21: POKE 44605,20: POKE 34,0: POKE 35,24: GOTO 50
  48. 520  IF X$ =  CHR$(13)  THEN  PRINT : GOTO 550
  49. 530  IF X$ =  CHR$(8)  AND  LEN(C$) < = 1  THEN  PRINT  CHR$(8);" ":C$ = "": GOTO 510
  50. 531  IF X$ =  CHR$(8)  THEN  PRINT  CHR$(8);:C$ =  LEFT$(C$, LEN(C$) -1): GOTO 511
  51. 540  PRINT X$;:C$ = C$ +X$: GOTO 511
  52. 550  ONERR  GOTO 575
  53. 551  PRINT D$C$:C$ = ""
  54. 552  POKE 216,0
  55. 553  GOTO 510
  56. 575  PRINT "Dos error!":C$ = "": GOTO 552